<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3027</cardID>
<listID>2096</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>448</width>
<height>296</height>
</cardSize>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for this stack. ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS: Startup,idle,openstack,reset,initilizeVariablesupdateMenuCommandsFUNCTIONS:Size of script: 1687 chars. 3/23/92 Brent Deverman∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on Startuplock screenset cursor to "commandkey"initilizeVariables -- Initilizes the variables used by this stackupdateMenuCommands -- puts the command key characters after specified--menuspass Startupend Startupon idleglobal theresetif thereset is true thenupdateMenuCommandsput false into theresetend ifpass idleend idleon openstacklock screenglobal CMDKEmenusif CMDKEmenus is empty theninitilizeVariablesend ifupdateMenuCommandsunlock screenpass openstackend openstackon reset paramglobal theresetif "Command Key Enhancer 1.0" is in the stacksinuse thenif param is "menubar" thenput true into theresetend ifend ifpass resetend reseton initilizeVariablesGlobal CMDKEmenus,CMDKEmenuitems,CMDKEcommandcharacters,CMDKEpickmenupush cardgo to stack "Command Key Enhancer 1.0"put cd field id 3 into CMDKEmenusput cd field id 1 into CMDKEmenuitemsput cd field id 2 into CMDKEcommandcharactersput false into CMDKEpickmenupop cardend initilizeVariableson updateMenuCommandsset cursor to commandkeyGlobal CMDKEmenus,CMDKEmenuitems,CMDKEcommandcharactersrepeat with i = 1 to the number of lines in CMDKEmenuitemsset cursor to commandkeyif there is a menuitem (line i of CMDKEmenuitems) in¬menu (line i of CMDKEmenus) thenif (line i of CMDKEmenus) ≠ "Font" or (line i of CMDKEmenus)¬≠ "Style" or (line i of CMDKEmenus) ≠ "" thenset cmdchar of menuitem (line i of CMDKEmenuitems)¬of menu (line i of CMDKEmenus) to (line i of CMDKEcommandcharacters)end ifend ifend repeatend updateMenuCommands</script>
